home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Shareware / IDimager Personal 4.2.0.3 / setup_IDimager_Personal_V4.exe / {app} / web / modules / labelimages.psc < prev    next >
Text File  |  2008-06-22  |  2KB  |  68 lines
  1. %include uservalidate.inc %/include
  2.  
  3. %code
  4.  
  5. %include storeddata.inc %/include
  6. %include resulttable.inc %/include
  7.  
  8. var
  9.   AItems: TCatalogItems;
  10.   AProp: TCatalogItemProp;
  11.   AParents: TCatalogItemProps;
  12.   i: Integer;
  13. begin
  14.   if not FindStoredData ('dsITEMS', AItems, False) then
  15.   begin
  16.     AItems := TCatalogItems.Create (TCatalogItem, '');
  17.     StoreData ('dsITEMS', AItems);
  18.   end;
  19.  
  20.   if AItems.GUID <> Request.Params.Values['GUID'] then
  21.   begin
  22.     AItems.Clear;
  23.     AItems.LastSort := csPhotoDate;
  24.     AItems.LastSortOrder := stDescending;
  25.     AProp := TCatalogItemProp.Create(nil);
  26.     AProp.GUID := Request.Params.Values['GUID'];
  27.     Catalog.EnumProp (AProp.GUID, AProp, False);
  28.  
  29.     Catalog.EnumItemsForProp (AProp, AItems, True, vptAlbumDisplay);
  30.  
  31.     AItems.Name := toWideString('');
  32.     AItems.GUID := Request.Params.Values['GUID'];
  33.     if Catalog.PropHasSubs (AProp) then
  34.       AItems.Name := AItems.Name + 
  35. {
  36.                      '<a href="javascript: $(''popupMenu'').style.visibility = ''visible'';">' +
  37.                      '<img src="%var:PageOffset/images/dropdown.png">' + 
  38.                      '</a>' +
  39.                      ' ' +
  40. }
  41.                      '';
  42.  
  43.     AItems.Name := AItems.Name + 
  44.                    AProp.PropName + 
  45.                    '<span class="small"><br/>';
  46.  
  47.     AParents := TCatalogItemProps.Create (TCatalogItemProp, '');
  48.     Catalog.EnumParentsForProp (AProp, AParents, False);
  49.     for i := 0 to AParents.Count - 1 do
  50.     begin
  51.       AItems.Name := AItems.Name + 
  52.                      iif(i > 0, ' | ', '') + 
  53.                      '<a href="javascript:getHTML(''%var:PageOffset/./modules/labelimages.psc'', ''' + AjaxContainer + ''', ''GUID=' + AParents.Items[i].GUID + ''')">' + 
  54.                      AParents.Items[i].PropName + 
  55.                      '</a>' + 
  56.                      '';
  57.     end;
  58.  
  59.     AItems.Name := AItems.Name + '</span>';
  60.     AParents.Free;
  61.  
  62.     AProp.Free;
  63.   end;
  64.   
  65.   result := IncludeResultTable (AItems, 'dsITEMS', 1, 0, 0);
  66. end;
  67.  
  68. %/code